home *** CD-ROM | disk | FTP | other *** search
- /*
- * Triton - The object oriented GUI creation system for the Amiga
- * Written by Stefan Zeiger in 1993-1994
- *
- * (c) 1993-1994 by Stefan Zeiger
- * You are hereby allowed to use this source or parts of it for
- * creating programs for AmigaOS which use the Triton GUI creation
- * system. All other rights reserved.
- *
- * Triton linkable library code for GCC - (c) 1994 by Gunther Nikl
- */
-
- #include "triton.h"
-
- extern struct Library *TritonBase;
-
- VOID TR_SetAttribute(struct TR_Project *project, ULONG id, ULONG attribute, ULONG value)
- {
- register struct Library *a6 __asm("a6") = TritonBase;
- register struct TR_Project *a0 __asm("a0") = project;
- register ULONG d0 __asm("d0") = id;
- register ULONG d1 __asm("d1") = attribute;
- register ULONG d2 __asm("d2") = value;
- __asm __volatile ("jsr a6@(-0x3c)"
- : /* no output */
- : "r" (a6), "r" (d0), "r" (d1), "r" (d2)
- : "a0","a1","d0","d1","d2", "memory");
- }
-